home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / tcp / Sniffy.lha / Sniffy / rexx / udpmacro.sniffy < prev   
Text File  |  1999-03-23  |  248b  |  12 lines
  1. /* */
  2.  
  3. parse arg proto,from,to,pkt
  4.  
  5. if ~show("L","rxsocket.library") then
  6.     if ~addLib("rxsocket.library",0,-30) then do
  7.         say "no rxsocket.library found"
  8.         exit
  9. end
  10. call ReadUDP(substr(pkt,21,8),"UDP")
  11. say "udp: from <"resolve(from)":"udp.sport">"
  12.